home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -seriously_amiga- / workbench / lfsystembinder / install_lfsystembinder21 < prev    next >
Text File  |  1998-06-22  |  6KB  |  190 lines
  1. ; Installation script for LFSystemBinder 2.1 (© LFSoft 1996)
  2. ;   15/08/1996 : Creation
  3. ;   16/11/1997 : Passage à la version 2.1
  4. ;
  5. ;   Note: The directory where this distribution reside must be LFSystemBinder2.1
  6. ; else this script can't found our custom icon for the new directory.
  7. ;
  8.  
  9. ;
  10. ; Some checks about the system.
  11. ;
  12.  
  13. (set t (user 1)) ; Those warnings must be displayed even in 'Novice' mode.
  14.  
  15. (if (< (/ (getversion) 65536) 36)
  16.     (
  17.         (message "Sorry but LFSystemBinder 2.1 need at last 2.0 KickStart !")
  18.         (exit (quiet))
  19.     )
  20. )
  21.  
  22. (if (< (/ (getversion "reqtools.library" (resident)) 65536) 38)
  23.     (message "WARNING :\n\nreqtools.library 38+ is needed but can't be found on your system!\n\n"
  24.             "Install this library or LFSystemBinder 2.0 will not work."
  25.     )
  26. )
  27.  
  28. (user t) ; Restore initial value
  29.  
  30. ;
  31. ;   Install LFSB itself
  32. ;
  33. (set name
  34.     (askdir
  35.         (prompt "Select the directory where LFSystemBinder2.1 will be installed.\n"
  36.             "Note: The best thing may be to create a new directory."
  37.         )
  38.         (help @askdir-help)
  39.         (default "sys:utilities/LFSystemBinder2.1")
  40.     )
  41. )
  42.  
  43. (set @default-dest name)
  44.  
  45. (if (exists "/LFSystemBinder2.1.info") ; Copy my custom icon
  46.     (
  47.         (run (cat "copy /LFSystemBinder2.1.info " @default-dest ".info")
  48.             (prompt "\n\nCan I copy custom directory icon ?" )
  49.  
  50.             (help "This action will copy the drawer's icon of this distribution "
  51.                 "to the newly created directory.")
  52.             (confirm)
  53.         )
  54.     )
  55. )
  56.  
  57. (copyfiles
  58.     (prompt "Select files to copy.\n"
  59.         "Note: You'll be asked later for a working installation of all compagnons")
  60.     (source "")
  61.     (dest @default-dest)
  62.     (help "If checked 'Examples' and 'Compagnons' directories will be copied in "
  63.         '@default-dest' ". In all cases, you'll be asked latter if you want a working "
  64.         "installation for each compagnons."
  65.         "\n\n" @copyfiles-help
  66.     )
  67.     (choices "LFSystemBinder" "Examples" "compagnons" "Historique")
  68.     (confirm)
  69.     (infos)
  70. )
  71.  
  72. (copyfiles
  73.     (prompt "Select AmigaGuide Database you want to be installed.")
  74.     (help "Those files are optionals but if you want extended help, you need at "
  75.         "last your language documentation.\nSee the 'GUIDE' tools'type.\n\n"
  76.         @copyfiles-help
  77.     )
  78.     (source "")
  79.     (dest @default-dest)
  80.     (pattern "#?.guide")
  81.     (confirm)
  82.     (infos)
  83. )
  84.  
  85. (if (exists (cat @default-dest "/LFSystemBinder"))
  86.     (
  87.         (set t (user 1)) ; Only the user can say what he want
  88.         (if
  89.             (askbool
  90.                 (prompt "Which icon you want to be installed for LFSystemBinder ?")
  91.                 (choices "4 Colors icon" "8 Colors icons")
  92.                 (help "Choose the icon applicable to your Workbench:\n"
  93.                     "4 colors icon is an icon suitable for all Workbench.\n"
  94.                     "8 colors icon is an icon for at last 8 colored Workbench using "
  95.                     "Magic Workbench palette.\n\n\n" @askbool-help
  96.                 )
  97.             )
  98.  
  99.             (copyfiles
  100.                 (source "4colors.info")
  101.                 (dest @default-dest)
  102.                 (newname "LFSystemBinder.info")
  103.                 (help "")
  104.             )
  105.         )
  106.         (user t) ; Restore initial value
  107.     )
  108. )
  109.  
  110. (copyfiles
  111.     (prompt "Select catalogs needed.")
  112.     (help "Those optional file allow LFSystemBinder to be localized.\n\n"
  113.         @copyfiles-help
  114.     )
  115.     (source "catalogs")
  116.     (dest (cat @default-dest "/Catalogs"))
  117.     (all)
  118.     (confirm)
  119.     (infos)
  120. )
  121.  
  122. (if (exists (cat @default-dest "/Catalogs"))
  123.     (copyfiles
  124.         (prompt "Copying file for 'Catalogs' directory icon.")
  125.         (help "")
  126.         (source "Catalogs.info")
  127.         (dest @default-dest)
  128.     )
  129. )
  130.  
  131. ;
  132. ;   Installation of LFSB complete,
  133. ;   now we're making a working installation of all compagnons...
  134. ;
  135.  
  136. ;
  137. ;   Registry.library
  138. ;
  139.  
  140. (copylib
  141.     (prompt "Copying 'registry.library' in 'libs:'\n\n"
  142.         "Note: This library is required for enabling the 'interactive mode'."
  143.         "On the other hand, LFSystemBinder will work without."
  144.     )
  145.     (source "compagnons/Registry/registry.library")
  146.     (dest "libs:")
  147.     (help @copylib-help)
  148.     (confirm)
  149. )
  150.  
  151. (copyfiles
  152.     (prompt "Copying 'ListRegistry' to a directory in your PATH.\n\n")
  153.     (source "compagnons/Registry/Compagons/ListRegistry")
  154.     (dest "c:")
  155.     (help "This tools is used to list the \"registry.library\"'s database.\n\n"
  156.         "I'm sorry but Installer 1.24 doesn't find version's "
  157.         "string of large executable so check yourself about version upgrade.\n\n" @copyfiles-help)
  158.     (confirm)
  159. )
  160.  
  161. (copyfiles
  162.     (prompt "Copying 'Patch' to your WBStartup directory.\n\n")
  163.     (source "compagnons/Registry/Compagons/PatchAssign")
  164.     (dest "sys:WbStartup")
  165.     (help "This tools allow notifications of some system datas (Assigns, Residents, Environmental variables and pathes)."
  166.         "Note: If you use LFSystemBinder before the WorkBench is started, you may "
  167.         "launch PatchAssign in your 'Startup-Sequence' (or your 'User-Startup') "
  168.         "instead of in WBStartup.\n\n"
  169.         "I'm sorry but Installer 1.24 doesn't find version's string of large "
  170.         "executable so check yourself about version upgrade.\n\n" @copyfiles-help)
  171.     (confirm)
  172.     (infos)
  173. )
  174.  
  175. ;
  176. ;   Others
  177. ;
  178.  
  179. (copyfiles
  180.     (prompt "Copying others goodies to a directory in your PATH.\n\n")
  181.     (source "compagnons")
  182.     (choices "LFGrabPath/LFGrabPath" "LFRxDirect/LFRxDirect")
  183.     (dest "c:")
  184.     (help "LFGrabPath and LFRxDirect have their own documentation file\n\n"
  185.         "I'm sorry but Installer 1.24 doesn't find version's "
  186.         "string of large executable so check yourself about version upgrade.\n\n" @copyfiles-help)
  187.     (confirm)
  188.     (infos)
  189. )
  190.